home *** CD-ROM | disk | FTP | other *** search
- object frmForm: TfrmForm
- Left = 239
- Top = 357
- HelpContext = 74
- ActiveControl = cmbURL
- BorderStyle = bsDialog
- Caption = 'Form'
- ClientHeight = 118
- ClientWidth = 504
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 489
- Height = 73
- Shape = bsFrame
- IsControl = True
- end
- object lblHRef: TLabel
- Left = 22
- Top = 24
- Width = 30
- Height = 13
- Caption = '&Action'
- FocusControl = cmbURL
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblMethod: TLabel
- Left = 22
- Top = 52
- Width = 36
- Height = 13
- Caption = '&Method'
- FocusControl = cmbMethod
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblEnctype: TLabel
- Left = 218
- Top = 52
- Width = 39
- Height = 13
- Caption = '&Enctype'
- FocusControl = cmbEncType
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object OKBtn: TBitBtn
- Left = 252
- Top = 88
- Width = 77
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 336
- Top = 88
- Width = 77
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object HelpBtn: TBitBtn
- Left = 420
- Top = 88
- Width = 77
- Height = 25
- Caption = '&Help'
- TabOrder = 6
- OnClick = HelpBtnClick
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object cmbURL: TComboBox
- Left = 72
- Top = 20
- Width = 333
- Height = 21
- Hint = 'URL of the CGI script which will process the form'#39's contents'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- TabOrder = 0
- end
- object bbtnURL: TBitBtn
- Left = 412
- Top = 16
- Width = 77
- Height = 27
- Hint = 'Open the URL builder'
- Caption = '&URL'
- TabOrder = 1
- OnClick = bbtnURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object cmbMethod: TComboBox
- Left = 72
- Top = 48
- Width = 133
- Height = 21
- Hint =
- '"Get" submits query; "Post" sends a datablock. Whenever possible' +
- ', use Post'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Get'
- 'Post')
- ParentFont = False
- TabOrder = 2
- end
- object cmbEncType: TComboBox
- Left = 272
- Top = 48
- Width = 133
- Height = 21
- Hint = 'Presently unnecessary'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'application/x-www-form-urlencoded'
- 'multipart/form-data')
- ParentFont = False
- TabOrder = 3
- end
- end
-